home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / bibtex / mac / bib.hqx / Bib Stack / card_27625.txt < prev    next >
Text File  |  1989-12-05  |  2KB  |  85 lines
  1. -- card: 27625 from stack: in
  2. -- bmap block id: 4404
  3. -- flags: 4000
  4. -- background id: 27017
  5. -- name: journal names
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   -- something has been added to the list of journals. Remake the list.
  9.  
  10.   global journalList
  11.  
  12.   if return&return is not in field "Names" then
  13.     put field "Names" & return & "Go to Journal Name Card" into journalList
  14.   else
  15.     -- Count the number of bad lines.
  16.     put 0 into badlines
  17.     repeat with linenr = 1 to number of lines of field "Names"
  18.       if word 1 of line linenr of field "Names" is empty then
  19.         put badlines+1 into badlines
  20.         if badlines = 1 then beep
  21.       end if
  22.     end repeat
  23.  
  24.     if badlines = 1 then
  25.       put "Among the journal names there's one line containing only spaces."
  26.     else if badlines > 1 then
  27.       put "Among the journal names there's " & badlines & " lines containing only spaces."
  28.     end if
  29.  
  30.     flash
  31.     complainSound
  32.  
  33.   end if
  34.  
  35. end closeCard
  36.  
  37.  
  38. -- part 3 (button)
  39. -- low flags: 00
  40. -- high flags: 0002
  41. -- rect: left=477 top=282 right=305 bottom=507
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 6720 / 6720
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Return Button
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   pop card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 4 (button)
  58. -- low flags: 00
  59. -- high flags: 2004
  60. -- rect: left=400 top=3 right=37 bottom=440
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 32462 / 32462
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Help
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   push card
  72.   go to background "Help"
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part contents for background part 1
  78. ----- text -----
  79. ACM Transactions on Computer Systems
  80. Communications of the ACM
  81. Computer
  82. Computing Surveys
  83. IEEE Transactions on Computers
  84. IEEE Transactions on Software Engineering
  85. Journal of the ACM